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VERSION  DESCRIPTION  DOCUMENT 
FOR  THE 

ADA  COMPILER  VALIDATION  CAPABILITY 
(Version  1.9) 


1  VERSION  IDENTIFICATION 

This  document  describes  the  AdaP  Compiler  Validation  Capability 
(ACVC),  Version  1.9.  This  version  consists  of  3122  tests  and  3591  test 
files.  Also,  there  are  5  tests  and  6  test  files  used  to  support  the 
testing  of  the  ACVC  test  suite.  The  differences  between  Version  1.8  an- 
1.9  are  cetaiiea  in  sections  2.0  tnrougn  4.0. 


2  TEST  MODIFICATIONS 

In  Version  1.9  of  the  ACVC,  431  tests  were  modified  from  the 
corresponding  tests  in  Version  1.8.  Modifications  have  been  made  to: 

a)  correct  tests  that  were  found  to  be  incorrect  in  previous  versions 
of  the  ACVC, 

b)  strengthen  the  tests  by  making  the  tests  more  comprehensive  or 
incorporating  more  cases  to  check. 

The  term  "former  test"  is  used  to  refer  to  the  test  as  it  exists  in 
Version  1.8  of  the  ACVC.  The  term  "new  test"  is  used  to  refer  to  the  test 
as  it  exists  in  Version  1.9.  The  following  tests  have  been  modified  from 
Version  1.8: 

A26004A.ADA 
B33201B.ADA 
B37004A.ADA 
B37203A.ADA 
B38008A.ADA 
B45533A.ADA 
B66001A.ADA 
B97103A.ADA 
BC101 3A.ADA 
BE2101E.ADA 
C241 13C. DEP 
C24113G.DEP 
C24113K.DEP 
C241 130. DEP 
C24 113S. DEP 
C241 13W.DEP 
C34001A. ADA 
C34002A.ADA 
C35703A. ADA 
C35705D.DEP 
C35705H.DEP 


Ada  is  a  registered  trademark  of  the  U.S.  Government  Ada  Joint  Program 
Office  (AJPO) . 


AE2101B.ADA 
B33203C.ADA 
B37101A.ADA 
B37309B.ADA 
B38101A.ADA 
B49006A. ADA 
B74101B.ADA 
B99001 A.ADA 
BC 1207 A. ADA 
BE3001A. ADA 
C24113D.DEP 
C241 13H.DEP 
C241 1 3L.DEP 
C24113P.DEP 
C241 1 3T.DEP 
C241 13X.DEP 
C 3400 1C. ADA 
C34018A.ADA 
C35705A.DEP 
C35705E.DEP 
C35705I.DEP 


AE2101D.ADA 
B36171A.ADA 
B37102A.ADA 
B37401A.ADA 
B43201D.ADA 
B4 A0 10C. ADA 
B91001G. ADA 
BA 1020C. ADA 
BC3103A.ADA 
C24113A.DEP 
C24 1 13E.DEP 
C24113I.DEP 
C241 1 3M.DEP 
C24113Q.DEP 
C24113U.DEP 
C24113Y.DEP 
C34001D.ADA 
C35508A.ADA 
C35705B.DEP 
C35705F.DEP 
C35705J.DEP 


B26005A.1 
B36201AJ 
B37201AJ 
B38003A.J 
B45116A.J 
B62006CJ 
B95001BJ 
BC1001 A.i 
BC3204C.I 
C24113B.I 
C24 1 1 3F.I 
C24113J.I 
C24113N.I 
C24113R.I 
C24113V.I 
C32114AJ 
C34001F.i 
C35508B.J 
C35705C.I 
C35705G J 
C35705K.I 
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C35705L.DEP 

C35705M.DE? 

C35705N.DEP 

C357050.DEP 

C3=705?.r-E? 

C35"05G.DEP 

0357052. DEP 

C 35 7 05S. DEP 

v;:  .  v‘1'  -  •  -  r.r 

^  SfZ  •  -  ^ 

0  j5705 V . DE? 

C  3  5  7  C6*  .DE? 

Cj5705X.DEP 

C35705Y.DEP 

C35707A.DEP 

C35707B.DEP 

C35707C.DEP 

C35707D.DEP 

C35707E.DEP 

C357Q7F.DEP 

C35707G.DEP 

C35707H.DEP 

C35707I.DEP 

C35707J.DEP 

C35707K.DEP 

C35707L.DEP 

C35707M.DEP 

C35707N.DEP 

C357070.DEP 

C35707P.DEP 

C35707Q.DEP 

C35707R.DEP 

C35707S.DEP 

C35707T.DEP 

C35707U.DEP 

C35707V.DEP 

C35707W.DEP 

C35707X.DEP 

C35707Y.DEP 

C35708A.DEP 

ivtb.^EV 

C55706C.DEP 

C55708D.DEP 

C3570SE.DE? 

7  Jcr  .  D£r 

^ JO i DOG  . DE? 

C 357 OSH. DEP 

L  5^  1  Oc  j.  •  Dr.? 
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Cj570oK.DE? 

C357C6L. DE? 

c35708M.DE? 

o3o7  08N .  DEP 

C35703Q.DEP 

C35706P.DEP 

C35708Q.DEP 

C35708H . DE? 

C35708S.DEP 

C35708T.DEP 

C35708U.DEP 

>-j:7  i/S  V .  DE? 

C35708W .DEP 

C35708X.DEP 

C35708Y.DEP 

C35802A.DEP 

C35802B.DEP 

C 3 5802C. DEP 

C35802D.DEP 

C35802E.DEP 

C35602F.DEP 

C35802G.DEP 

C35802H.DEP 

C35802I.DEP 

C35802J.DEP 

C35802K.DEP 

C35802L.DEP 

C35802M.DEP 

C35802N.DEP 

C358020.DEP 

C35802P.DEP 

C35802Q.DEP 

C35802R.DEP 

C35802S.DEP 

C35802T.DEP 

C35802U.DEP 

C35802V.DEP 

C35802W.DEP 

C35802X.DEP 

C35802Y.DEP 

C35904A.ADA 

C36202A.ADA 

C36202B. ADA 

C36301A.ADA 

C36303A.ADA 

C37008A. ADA 

C37209A. ADA 

C3721 3B.ADA 

C41304A.ADA 

C41404A.ADA 

C43212A. ADA 

C45241A.DEP 

C45241B.DEP 

C45241C.DEP 

C45241D.DEP 

C45241E.DEP 

C45241F.DEP 

C45241G.DEP 

C45241H.DEP 

C45241I.DEP 

C45241 J.DEP 

C45241K.DEP 

C45241L.DEP 

C45241M.DEP 

C45241N.DEP 

C4 524 10. DEP 

C45241P.DEP 

C4 524  IQ. DEP 

C45241R.DEP 

C45241S.DEP 

C45241T.DEP 

C45241U.DEP 

C45241 V.DEP 

C45241W.DEP 

C45241X.DEP 

C45241Y.DEP 

C45262A.ADA 

C45262B. ADA 

C45262C.ADA 

C45321A.DEP 

C4 532 IB. DEP 

C4 532 1C. DEP 

C4 532 ID. DEP 

C45321E.DEP 

C45321F.DEP 

C45321G.DEP 

C45321H.DEP 

C45321I.DEP 

C45321 J.DEP 

C45321K.DEP 

C45321L.DEP 

C45321M.DEP 

C45321N.DEP 

C453210.DEP 

C4 532 IP. DEP 

C45321Q.DEP 

C45321R.DEP 

C45321S.DEP 

C45321T.DEP 

C45321U.DEP 

C45321 V.DEP 

C45321W.DEP 

C45321X.DEP 

C45321Y.DEP 

C45421A.DEP 

C45421B.DEP 

C45421C.DEP 

C45421D.DEP 

C45421E.DEP 

C45421F.DEP 

C45421G.DEP 

C45421H.DEP 

C45421I.DEP 

C45421 J.DEP 

C45421K.DEP 

C45421L.DEP 

C45421M.DEP 

C45421N.DEP 

C454210.DEP 

C45421P.DEP 

C45421Q.DEP 

C45421R.DEP 

C45421S.DEP 

C45421T.DEP 

C45421U.DEP 

C45421 V.DEP 

C45421W.DEP 

C45421X.DEP 

C45421Y.DEP 

C48008A.ADA 

C4 AO 11 A. ADA 

C4A01 3A.ADA 

C52103X.ADA 

C52104X.ADA 

C54A03A.ADA 

C58005B.ADA 

C64103A.ADA 

C87B50A.ADA 

C87B62A.DEP 

C87B62B.DEP 

C87B62C.DEP 

C92003A.ADA 

C92005A.ADA 

C93001A.ADA 

C93003A.ADA 

C94001A.ADA 

C94002A. ADA 

C94002B.ADA 

C94006A.ADA 

C95040D.ADA 

C97113A.ADA 

C97202A.ADA 

CA1012A.DEP 

CA2009C.DEP 

CA2009F.DEP 

CE2102C.TST 

CE2102G.ADA 

CE2104B.ADA 

CE2104C.ADA 

CEu 1 05A. ADA 

CE2106A.ADA 

Ctrl  1 0  /  A .  ADA 
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CE21D7D.ADA 

CE21C7E. ADA 
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CE21uoD.ADA 

1 G9A  •  AuA 

CE211 ID. ADA 

CE21 1 lu.ADA 

CE2111H.ADA 

CE2201A.ADA 

CE22Q1B.ADA 

CE2201C.ADA 

CE2201F.ADA 

CE2204A.ADA 

CE2204B.ADA 

CE2210A.ADA 

CE2401A.ADA 

CE24Q1B.ADA 

CE2401C.ADA 

CE2401E.ADA 

CE2401F. ADA 

CE2404A. ADA 

CE2406A. ADA 

CE2407A.ADA 

CE2409A. ADA 

CE3103A.ADA 

CE3104A.ADA 

CE3109A.ADA 

CE  • 1 1 1 OA . A2A 

CE3 1 1 1A.ADA 

CE51 1 1E. ADA 

CE31 1 1C. ADA 

1  »  i  U  •  ti~  n 

j  1  1  1  ID  • 

CE 31 1 2A . ADA 

CE.;  1 145.  ADA 

o 2.  3  5  1  'j A  •  riisn 

^  id  3  ad  C  3  *■■■■  •  A 
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CE3301 A. ADA 

^  CD  3  31  ^  A 

2Ej301C.ADA 

CE3502A.AD.ri 

CE3402A. ADA 

CE34Q2B. ADA 

CE3402C.ADA 

CE3402D.ADA 

CE3403A.ADA 

CE34055. ADA 

CE3403C.ADA 

CE3403E. ADA 

CE3^03F . ADA 

^£,54  04  A  •  ADA 

CE3404B. ADA 

CE3404C . ADA 

CE3405A.ADA 

CE3405B.ADA 

CE3405C.ADA 

CE3405D.ADA 

CE3406A.ADA 

CE3406B. ADA 

CE3406C.ADA 

CE3406D.ADA 

CE3407A.ADA 

CE3407B.ADA 

CE3407C.ADA 

CE340SA.ADA 

CE3408B.ADA 

CE3408C.ADA 

CE3409A.ADA 

CE3409C.ADA 

CE3409D.ADA 

CE3409E.ADA 

CE3409F.ADA 

CE3410A.ADA 

CE3410C.ADA 

CE3410D. ADA 

CE3410E.ADA 

CE3410F.ADA 

CE3411A.ADA 

CE3412A.ADA 

CE3413A.ADA 

CE3413C.ADA 

CE3602A. ADA 

CE3602B.ADA 

CE3602C.ADA 

CE3602D.ADA 

CE3603A.ADA 

CE5&04A.ADA 

CE3605A.ADA 

CE3605B.ADA 

CE3605C.ADA 

CE3605D.ADA 

CE3605E.ADA 

CE3606A.ADA 

CE3606B.ADA 

CE3704A.ADA 

CE3704B.ADA 

CE3704D.ADA 

CE3704E.ADA 

CE3704F.ADA 

CE3704M.ADA 

CE3704N.ADA 

CE37040.ADA 

CE3706D.ADA 

CE3706F.ADA 

CE3804A.ADA 

CE3804B.ADA 

CE3804C.ADA 

CE3804D.ADA 

CE3804E.ADA 

CE3804G.ADA 

CE3804I.ADA 

CE3804K.ADA 

CE3804M.ADA 

CE3805A.ADA 

CE3805B.ADA 

CE3806A.ADA 

CE3806D.ADA 

CE3806E.ADA 

CE3905A.ADA 

CE3905B.ADA 

CE3905C.ADA 

CE3905L.ADA 

CE3906A.ADA 

CE3906B.ADA 

CE3906C.ADA 

CE3906E.ADA 

CE3906F.ADA 

D4A002B.ADA 

E24 10 1A.TST 

Please  note  that  three  tests,  A26004A,  C34001D,  and  C34001F,  were 
modified  and  the  file  extension  has  changed. 

In  addition  to  the  test  modifications  noted  above,  all  tests  were 
modified  to  remove  the  language  version  suffix  (-AB  or  -B)  from  the 
official  test  name.  The  language  version  suffix  will  no  longer  be  a  part 
of  the  official  ACVC  test  name. 
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TEST  DELETIONS 


Version  1.9.  Several  of  the  deleted  tests  were  renamed  to  new  test  names 
in  ACVC  1.9  to  correspond  to  the  naming  conventions  provided  by  the 
Implemented s  Guide. 


A34008B.ADA 

B35A03A.ADA 

E950ACA. ADA 
O  -  1  kJ  ntO  .  jiljA 

C  --  i  '  .nr  r.  •  t\Jn 

6Z 3 1  ABA. ADA 
3C32ADA.ADA 
3C33AEA . ADA 
CjhOO in. ADA 

C34001M. ADA 
C34001Q.ADA 
C35104A.ADA 
C45424A.DEP 
C45424E.DEP 
C45424I.DEP 
C45424M.DEP 
C45424Q.DEP 
C45H24U.DEP 
C45424Y.DEP 
C910AHA.ADA 
C940ABA.ADA 
C940AHA.ADA 
CA3005B.ADA 
CE2201E.DEP 
E94004C.ADA 


C32107B.ADA 

B45402A.ADA 

B95CBAA . ADA 


DOJ 1 A  vn .aDa 

3C33ABA. ADA 
C34001B.ADA 
C34QG 1 I .ADa 
C34001N. ADA 
C34001R.ADA 
C38007A.ADA 
C45424B.DEP 
C45424F.DEP 
C45424J.DEP 
C45424N.DEP 
C45424R.DEP 
C4 5424V. DEP 
C45526A.ADA 
C930ABA.ADA 
C 940 AC A. AD A 
C940BAA.ADA 
CA3005C.ADA 
CE2401D.DEP 


B34008A.ADA 
B4A006A. ADA 

B9d0DHA . ADA 
Bo  1 1 ABa • ADA 

D  cO  v  rt  D  ti  •  n  l)r\ 

BC 31  ADA. ADA 
BC33ACA. ADA 
C34001E.DEP 
C34001K.ADA 
C340010. ADA 
C34001T.ADA 
C45401 A. ADA 
C45424C.DEP 
C45424G.DEP 
C45424K.DEP 
C454240.DEP 
C45424S.DEP 
C45424W.DEP 
C4A001A.ADA 
C930AFA.ADA 
C940ACB.ADA 
C940BBA.ADA 
CA3005D.ADA 
E94004A. ADA 


B35301A.ADA 
B92QBDA. ADA 

3C 1 OADA . ADA 
Bo  1 1  A~A  •  A~.-. 

D  •  Aw n 

BC32ABA . ADn 
BC33ADA.ADA 
C34001G.DEF 
C3400 1L.ADA 
C34001P.ADA 
C34002B.ADA 
C4 540 IB. ADA 
C45424D.DEP 
C45424H.DEP 
C45424L.DEP 
C45424P.DEP 
C45424T.DEP 
C45424X.DE? 
C4A003A.ADA 
C930AJA.ADA 
C 94 OADA. ADA 
CA3005A.ADA 
CE2201D.DEP 
E94004B. ADA 


In  addition,  the  support  package  VAR_STRINGS  and  the  four  tests 
(CZ1201A  ..  D)  that  check  the  VAR_STRINGS  package  have  been  deleted. 


4  NEW  TESTS 

The  following  820  tests  have  been  added  to  Version  1.9  of  the  ACVC  Test 
Suite.  A  test  is  considered  "new"  if  the  test  name  did  not  exist  in  ACVC 
Version  1.8.  Several  of  the  new  tests  were  renamed  from  former  tests  in 
ACVC  Version  1.8  to  correspond  to  the  naming  conventions  provided  by  the 
Implemented s  Guide. 


A22006C. ADA 
A2b007A.TST 
A26004A. ADA 


A22G06D. ADA 
A27003A.ADA 
A29003A.ADA 


A22006E. ADA 
A27004A. ADA 
A33003A.ADA 


A22006F. ADA 
A28002C.ADA 
A34017C.ADA 
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<o?005D.DEP 
A41307A.ADA 
A95001C.ADA 
AD 1  AO  1  A. ADA 
AE2101G.ADA 
AE3002G.ADA 
322005D . AD A 
C'2^Cv'5(H.ADk 

Z „  •  rt  Jn 

Z C  •  ft  U  rt 

522G05T.ADA 

B£4G09A.ADA 
B24206B.ADA 
B26001A.ADA 
B2800 1 C . ADA 
B28001G. ADA 
B28001K.ADA 
B280010. ADA 
B28001S.ADA 
B28001W.ADA 
B2AG05A. ADa 
B32101 A.ADA 
B34002B.ADA 
B34007E.ADA 
B34007Q.ADA 
B34009E.ADA 
B34017B.ADA 
B33401B.ADA 
B35506D.ADA 
B35901D.ADA 
B36307A.ADA 
B37312B.ADA 
B38101C.ADA 
B38203A.ADA 
B390C4C.ADA 
B39004G. ADA 
B39004K.ADA 
B41328B.ADA 
B44004C. ADA 
&453D1B.ADA 
B43335A, ADA 
B46002A.ADA 
B46004D. ADA 
B49003A.ADA 
B49008A.ADA 
B49009B. ADA 
B51003B.ADA 
B92001 A.ADA 


A39GG5e-.DE? 
A4 1307C. ADA 
AA2010A.ADA 
ADI AO IB. ADA 
AE2101 I. ADA 
B22005A.ADA 
3220C5E. ADA 

«  AD'n 

5  _  £  G  C  7-M « Aw'rt 

D  <2.  £  J  0  •  ADA 

B22005D . ADA 
B220057 .ADA 
B24 1 O4A.ADA 
B25002A.ADA 
B27005A. ADA 
B2800 ID. ADA 
B28001H. ADA 
B28001L. ADA 
B28001P.ADA 
B28001T. ADA 
B28003A.ADA 
B2A005B.ADA 
B33302A.ADA 
B34003B.ADA 
B34007H.ADA 
B34007T.ADA 
B34009H.ADA 
B35004A. ADA 
B35403A.ADA 
B35801C.ADA 
B35A01A.ADA 
B37104A.ADA 
B38003B.ADA 
B38101D.ADA 
B38204A. ADA 
B39004D. ADA 
B39004H.ADA 
B39004L. ADA 
B41 327B.ADA 
B44004D, ADA 
B45301C. ADA 
B45537A.ADA 
B46004A.ADA 
B46004E. ADA 
B49004A. ADA 
B49008B.ADA 
B49009C.ADA 
B74404A.ADA 
B92001B. ADA 


A39003r.DE? 

A87B39A.ADA 

AA2012A.ADA 

ADI  AO  1C. ADA 

AE21 13 A. ADA 

B22005B.ADA 

322005F. ADA 

£32^00^0  .  A 

BBZuOsN . ADA 

B220C5R. ADrt 

B22005V.ADA 

rs22005Z . ADA 

B24205A.ADA 

B25002B.ADA 

B28001 A.ADA 

B28001E. ADA 

B28001I.ADA 

B28001M. ADA 

B28001Q.ADA 

B28001U.ADA 

B28003C. ADA 

B2A007A.ADA 

B34001B.ADA 

B34004B.ADA 

B34007K.ADA 

B34008B. ADA 

B34009K.ADA 

B35302A.ADA 

B35501B.ADA 

B35803A.ADA 

B36001A.ADA 

B37 106A. ADA 

B38009A.ADA 

B38103D.ADA 

B39004A.ADA 

B39004E.ADA 

3390041. ADA 

B4 1 305A. ADA 

B44004A. ADA 

B44004E. ADA 

B45302A. ADA 

B4 5601 A. ADA 

B46004B. ADA 

B47001A.ADA 

B49005A.ADA 

B49008C.ADA 

B49010A.ADA 

B91001H. ADA 

B95069C.ADA 


A39005G.DEP 

A91001I. ADA 
AA5008X.ADA 
AD1A01D.ADA 
AE2113B.ADA 
B22005C. ADA 
B220C5G.ADA 
52200 3E • ADA 

—  w  •  a  ~>n 

B220053. ADA 
B22005W.ADA 
B240C7A. ADA 
32 4200 A. ADA 
B25004B.ADA 
B28001B.ADA 
B28001F.ADA 
B28001J.ADA 
B28001N.ADA 
B28001R.ADA 
B28001 V.ADA 
B2A004A. ADA 
B2A010A.ADA 
B34001E.ADA 
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INTRODUCTION 


Tne  ACVC  1.9  test  files  are  written  on  thirty- five  diskettes  written  in 
MS  DOS  format  at  nine  sectors  per  track.  One  of  the  files  on  the  first 


MS-DOS  limits  the  length  of  the  file  name  to  eight  characters  with  a 
three  letter  extension  (example,  BA1Q11BQ.ADA).  Some  of  the  tests  in  the  test 
suite  have  test  names  that  are  nine  characters  long;  therefore,  the  ninth 
character  has  been  deleted  and  the  extension  has  remained  the  same.  The  file 
ACVC9.LST  will  contain  the  appropriate  names  of  the  files. 


3  FILE  MODIFICATIONS 

Four  tests  contain  a  control  character,  CTRL  Z,  that  is  used  by  MS-DOS  as 
a  system  code.  A  substitution  has  been  made  to  enable  the  download  of  the 
test  suite.  Where  the  AZ  is  to  appear  in  the  tests,  {CTRL-Z}  is  used  instead. 
These  are  the  four  tests  Involved:  B22005Z.ADA,  B25002A.ADA,  B26005A.ADA, 
B27005A.ADA.  If  your  system  supports  this  control  character,  replace  the 
{CTRL-Z}  with  ~Z. 


4  TEST  MODIFICATIONS 

The  Ada 5  tests  will  be  periodically  updated  and  corrected.  Their 
correctness  is  not  guaranteed  either  by  the  ACVC  Maintenance  Organization 
(AMO)  or  by  its  contractor.  Please  report  errors  in  writing  to 

Mrs.  Georgeanne  Chitwood 
ACVC  Maintenance  Organization 
ASD/SCOL 

Wright-Patterson  AFB,  OH  45433-6503 


You  will  receive  notification  of  changes  to  this  version  on  a  periodic 
basis.  Please  notify  the  AMO  of  any  change  of  address. 


-Ada  is  a  registered  trademark  of  the  U.S.  Government  Ada  Joint  Program 
Office  (AJPO) . 


Using  the  ACVC  Tests  (ACVC  Version  1.9) 


ACVC  test  names  have  the  following  form:  NAME. TYPE.  The  NAME 
component  has  the  following  interpretation,  where  the  first  column  below 
indicates  the  character  position  in  NAME  and  the  second  column,  the  meaning 
of  that  position: 


1  -xass  of  test  (.1,  p,  C,  D,  t,  L). 

2  Imt-er.er.ters '  Juice  chapter  number  :.in  hexadecimal/. 

3  Impiemer.ters '  Guide  section  number  within  a  er.apter  (in  hexa¬ 

decimal  ) . 

1  Impiemer.ters'  Guide  subsection  number  or  -e:  ter. 

5,  6  Implementers '  Guide  test  objective  number  (two  digit  decimal 
number).  There  are  currently  4  tests  (listed  in  Appendix 
F)  which  have  letters  in  this  position  of  the  test  name. 
These  test  names  will  be  renamed  to  correspond  to  the 
Implementers'  Guide  in  a  later  version  of  the  ACVC. 

7  Test  sequence  letter  (A-Z). 

8  Compilation  sequence  digit  (0-9). 

9  When  there  are  several  compilation  units,  "M"  indicates  the 

main  program. 

Characters  8  and  9  are  only  present  for  tests  that  consist  of  several 
separately  compiled  units.  The  eighth  character  indicates  the  order  in 
which  the  units  are  to  be  compiled  (unit  0  is  compiled  first).  The  ninth 
character  is  only  present  for  the  main  program  and  is  always  "M". 
Characters  2-8  uniquely  identify  a  test  file  within  a  particular  version  of 
the  test  suite. 

The  source  code  of  each  test  file  gives  its  own  complete  name  as  the 
first  (comment)  line  of  text.  Characters  2-8  suffice  to  identify  a  test 
file  uniquely.  The  maximum  length  of  a  test  file  name  is  13  characters 
(e.g.,  CA1 106A4M. ADA) . 

Class  A  tests  are  expected  to  compile  and  execute  without  error. 
There  are  no  run-time  checks  in  Class  A  tests,  so  theoretically  such  tests 
need  not  be  executed;  they  can  only  fail  execution  by  crashing. 
Nonetheless,  all  Class  A  tests  are  executed  in  a  validation  attempt. 

Class  3  tests  are  expected  to  fail  compilation.  The  lines  containing 
illegal  constructs  that  must  be  detected  at  compile  time  are  marked 
"ERROR:",  with  a  very  brief  indication  '-■f  what  makes  the  construct  illegal. 
Class  B  tests  are  passed  if  all  iluv gal  constructs  can  be  detected  by  a 
compiler,  and  no  legal  constructs  are  rejected.  This  criteria  can  be 
satisfied  in  several  ways.  Ideally,  all  lines  marked  ERROR  will  contain  an 
error  message  identifying  the  illegal  construct,  and  no  other  lines  will  be 
marked  as  containing  errors.  Few  compilers  can  meet  this  high  standard  for 
every  test.  If  there  is  doubt  about  whether  an  illegal  construct  is  being 
detected,  the  ultimate  criterion  is  to  remove  all  illegal  constructs  except 
tne  one  that  is  in  question.  If  the  compiler  rejects  a  test  containing  a 
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single  illegal  construct,  then  the  compiler  is  considered  to  detect  the 
illegality,  regardless  of  the  content  or  placement  of  its  error  message  is). 

. .  -  *  t  ..w  wC'  -  -  •  •  »  -*■  -i-  tr  ca,  ^  C  apical  ^ -  ^  w  »  wlitr 

only  firm  evidence  of  failure  to  pass  the  test  is  to  compile  a  version  of 
the  test  that  contains  no  illegal  constructs. 


Class  C  tests  are  expected  to  compile  successfully  and  execute 
successfully.  All  Class  C  tests  are  self-checking,  although  some  I/O  tests 
require  interaction  with  a  terminal.  (Such  tests  have  tne  TYPE  name  MAN.) 


contained  in  the  files  Ht.P_SPEC.ADA  and  nt,P  BODY. ADA.  These  fixes  must  be 
compiled  before  any  Class  A,  C,  D,  or  E  test  can  be  successfully  compiles 


Class  D  tests  are  capacity  tests.  All  Class  D  tests  are  executable, 
ana  are  expected  to  execute  successfully  if  no  errors  are  reported  at 
compile  time.  If  an  error  is  reported  at  compile  time,  it  should  be  an 
error  associated  with  the  capacity  being  tested.  Such  "failures"  to 
compile  a  valid  Ada  program  are  not  counted  during  validation,  since  such  D 
tests  are  considered  "inapplicable"  to  the  implementation.  Failure  for  any 
other  reason,  however,  may  be  considered  a  failure  for  purposes  of 
validation,  and  should  be  reported  to  the  AVO  for  a  ruling. 

Class  E  tests  are  executable  tests  that  check  whether  certain 
implementation-dependent  options  have  been  provided  or  how  certain 
ambiguities  in  the  Standard  have  been  resolved.  These  tests  print  out 
comments  giving  their  results.  The  pass/fail  criteria  for  Class  E  tests 
are  test  dependent  and  are  indicated  in  each  Class  E  test. 

Class  L  tests  are  expected  to  fail  at  link  time,  i.e.,  an  attempt  to 
execute  the  main  program  must  generate  an  error  message  before  any 
declarations  in  the  main  program  or  any  units  referenced  by  the  main 
program  are  elaborated.  Such  tests  need  not  fail  compilation,  but  may  fail 
to  compile  for  some  implementations.  In  such  cases,  the  source  lines 
containing  the  illegal  construct  are  marked  with  an  "ERROR:"  comment  just 
as  for  Class  B  tests. 

Tests  that  have  the  TYPE  name  TST  are  parameterized  to  accept  certain 
implementation-dependent  values.  The  parameters  are  given  as  identifiers 
whose  name  begins  with  a  dollar  sign  ($).  The  MACRO. DEFS  file  contains  a 
list  of  all  parameters  and  a  specification  of  the  implementation-dependent 
value  tr.at  is  to  be  provided.  The  appropriate  textual  value  must  be 
substituted  for  these  parameters  before  the  tests  are  suitable  for 
compilation  and/or  execution. 

All  Class  A,  B,  C,  and  L  tests  having  the  TYPE  name  ADA  should  be 
passed  by  a  conforming  compiler.  Class  A,  B,  C,  and  L  tests  having  the 
TYPE  name  TST  should  be  passed  after  the  appropriate 
implementation-dependent  values  have  been  substituted  for  parameters  in  the 
test.  Tests  having  the  TYPE  name  DEP  need  only  be  passed  for  compilers 
r.aving  certain  capabilities,  e.g.,  the  compiler  purports  to  support  the 
predefined  L0NG_FU0AT  or  LONG_INTEGER  data  type.  Appendix  G  contains  a 
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list  of  test  applicability  criteria  that  describes  the 
implementation-dependent  features  of  the  DEP  tests.  All  DEP  tests  are 
rXr?  Z  2'J.V a  Vii'  10!*  t=r_  J.  t  t'XC‘6  j;  1  ti.05tr  3  rtC -  *  r*.'.** 

*  ^  •.  _  *  1 1.  J  ^  C  I  I.t.  C  *  X  .  t  J  Va*  uc  Vlidt  w  cXC  - 1  —  >2  w*  1  ij  •  .’jiA  w  J.  •  ij  Hr  lw  ^  vi 

a  particular  construct  must  all  pass  or  all  fail.  For  example,  it  would  oe 
unacceptable  for  some  LONG  INTEGER  DEP  tests  to  pass  and  some  to  fail. 
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APPENDIX  A 


PREREQUISITES  FOR  EXECUTING  TESTS 


Ir.  o rzer  to  run  ail  of  tne  ACVC  tests,  all  of  Ada  must  be  implemented, 
since  the  tests  cover  the  entire  language.  However,  each  test  uses  only  a 
snail  portion  of  Ada1 (in  addition  to  the  particular  Ada  feature  being 
tested).  In  general,  we  have  tried  to  not  use  more  Ada  features  than  are 
necessary  to  write  self -checking  executable  tests  that  are  also  not  to 
difficult  to  read  or  modify.  Thus,  we  generally  stay  within  a  Pascal-like 
subset  of  Ada.  However,  if,  for  example,  we  need  to  use  a  FOR  loop,  we  use 
it,  rather  than  use  an  equivalent  WHILE  loop  or  construct  a  loop  with  IF 
and  GOTO.  In  other  words,  our  tests  are  intended  for  validating  finished 
implementations  rather  than  for  debugging  in  the  earlier  3tages  of 
implementation . 

All  of  our  executable  tests  use  a  separately  compiled  package,  REPORT, 

to  automate  the  reporting  of  test  results  and  to  prevent  a  compiler  from 
knowing  certain  values  at  compile  time  (and  thus  optimizing  when  we  don't 
want  it  to).  The  REPORT  package  uses  most  of  the  Ada  features  that  we  tend 
to  use  throughout  the  tests,  namely 

type  INTEGER,  literals,  +,  -,  relations,  :  = 
type  CHARACTER,  literals,  4,  relations,  s  = 
type  BOOLEAN,  literals,  AND,  OB,  NOT,  relations,  := 
user-defined  enumeration  type,  literals,  relations,  := 
type  STRING,  literals,  &,  relations,  :  = 
object  declarations  (and  initialization)  for  above  types 
subprogram  declarations,  bodies,  calls,  with  formal 
parameters  of  all  modes  and  of  the  above  types 
IF  statements 


Our  executable  tests  generally  have  the  following  structure: 

—  Name. ADA 
—  Objective 
—  Author 

WITH  REPORT;  USE  REPORT; 

PROCEDURE  Name  IS 

•  e  • 

BEGIN 

TEST  ("Name. ADA",  "Description  ..."  4 

n  n  \  . 

•  •e  •••  /  j 


& 

Ada  is  a  registered  trademark  of  the  U.S.  Government  Ada  Joint  Program 
Office  (AJPO) . 
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IF  ...  /  =  CorreetValue  THEN 


•  •  • 

RESULT; 

END  Name; 

Hence,  at  least  this  much  of  the  REPORT  package  must  be  implemented  to 

compile  and/or  run  our  executable  tests. 

-  -- ^ w  -.u  e..w  w’f  .tiT*  w e b  v u  .•».*» •»» u * x v « w  , 

be  recoded  to  use  only  those  features  tnat  are  actually 

We  nave  followed  certain  coding  standards  to  ensure  that  the  tests  are 
reasonably  portable  without  further  modification,  for  example: 

source  line  length  <=  72  characters  (except  in  certain  .DEP 

and  .TST  tests) 

basic  55  character  set 

small  numeric  values  (12  bit  word  size  is  sufficient) 
placement  of  difficult  or  subsettable  features  in  separate  tests 
e.g.,  floating  point,  fixed  point,  exceptions,  tasking,  generics 


wii.wt  z r.c 

it.  C  aH  a  x  ws.y  s 
working. 


On  the  other  hand,  we  have  tried  to  ensure  a  thorough  coverage  of  Ada 
and  of  possible  implementations  of  its  features.  Thus,  for  example,  if  a 
test  objective  is  concerned  with  some  property  of  scalar  types,  then  we 
usually  try  it  for  INTEGER,  CHARACTER,  BOOLEAN,  and  a  user-defined 
enumeration  type  (all  in  one  test  since  we  expect  all  of  these  types  to  be 
implemented);  for  FLOAT  and  a  user-defined  floating  point  type  (in  a 
separate  test);  and  for  a  fixed  point  type  (in  a  separate  test). 

The  remaining  appendices  contain  the  REPORT  package  specification  and 
body  together  with  test  procedures,  CZ1101A.ADA  and  CZ1102A.ADA,  to  check 
that  the  REPORT  package  works  correctly.  If  an  implementation  can 
successfully  compile  and  execute  REPORT,  CZ1101A.ADA,  and  CZ1102A.ADA,  then 
it  has  a  reasonable  chance  of  usefully  using  the  ACVC  tests  for  debugging 
prior  to  validation. 

Some  of  the  executable  I/O  tests  (tests  whose  name  begins  CE...)  use  a 
checking  program  called  CHECK_FILE.  The  source  code  for  this  procedure  is 
found  in  the  file  CHECK_FILE. ADA.  This  procedure  should  be  compiled  and 
put  in  the  library  that  contains  the  report  package.  A  program  to  check 
that  CHECKJfTLE  works  is  in  file  CZ1103A.ADA.  This  program  should  be 
executed  before  executing  any  I/O  tests  that  use  CHECK_FILE.  Since  CZ1103A 
checks  that  errors  in  text  files  will  be  detected,  CZ1103A  will  print  out 
seme  failure  messages  when  it  is  run.  The  presence  of  these  messages  does 
not  mean  the  test  nas  failed. 


Some  of  the  executable  I/O  tests  create  a  file  that  is  to  be  used  by 
another  test.  In  these  instances,  the  tests  must  be  run  in  sequence 
without  deleting  the  file  that  was  created.  These  are  the  tests  that 
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create  a  file,  followed  by  the  tests  that  depend  on  the  file: 


CE511SA  must  oe  followed  by  CE3112B 


APPENDIX  B 


r.zr  „r.7  Src.v IFI DAT j.ON 


--  REPORT  SP^C.ADA 

—  THIS  REPORT  PACKAGE  PROVIDES  THE  MECHANISM  FOR  REPORTING  THE 

—  PASS/FAIL/NOT-APPLICABLE  RESULTS  OF  EXECUTABLE  (CLASSES  A,  C,  D,  E, 

—  AND  L)  TESTS. 

—  IT  ALSO  PROVIDES  THE  MECHANISM  FOR  GUARANTEEING  THAT  CERTAIN  VALUES 

—  BECOME  DYNAMIC  (NOT  KNOWN  AT  COMPILE-TIME). 

—  JRK  IE/13/79 

—  JRK  6/10/80 

—  JRK  8/6/81 

—  JRK  10/27/82 

—  JRK  6/1/84 

PACKAGE  REPORT  IS 

—  THE  REPORT  ROUTINES. 

PROCEDURE  TEST 


(  NAME  !  STRING; 
DESCR  :  STRING 


) ; 

PROCEDURE  FAILED  —  OUTPUT  A  FAILURE  MESSAGE.  SHOULD  BE 

—  INVOKED  SEPARATELY  TO  REPORT  THE 
—  FAILURE  OF  EACH  SUBTEST  WITHIN  A  TEST. 
(  DESCR  s  STRING  —  BRIEF  DESCRIPTION  OF  WHAT  FAILED. 

—  SHOULD  BE  PHRASED  AS: 

—  "(FAILED  BECAUSE)  ...REASON...". 

); 

PRO'EDURE  NOT  APPLICABLE  —  OUTPUT  A  NOT-APPLICABLE  MESSAGE. 


—  THIS  ROUTINE  MUST  BE  INVOKED  AT  THE 

—  START  OF  A  TEST,  BEFORE  ANY  OF  THE 

—  OTHER  REPORT  ROUTINES  ARE  INVOKED. 

—  IT  SAVES  THE  TEST  NAME  AND  OUTPUTS  THE 

—  NAME  AND  DESCRIPTION. 

—  TEST  NAME,  E.G.,  "C23001A". 

—  BRIEF  DESCRIPTION  OF  TEST,  E.G., 

—  "UPPER/LOWER  CASE  EQUIVALENCE  IN  "  & 

—  "IDENTIFIERS". 


SHOULD  BE  INVOKED  SEPARATELY  TO  REPORT 
THE  NON-APPLICABILITY  OF  EACH  SUBTEST 
WITHIN  A  TEST. 

NuT-APPLI CABLE.  SHOULD  BE  PHRASED  ASs 

" ( NOT-APPLICABLE  BECAUSE ) . . . REASON 


PROCEDURE  COMMENT  —  OUTPUT  A  COMMENT  MESSAGE. 

(  DESCR  s  STRING  —  THE  MESSAGE. 

); 

—  END  Or  A  TEST.  IT  OUTPUTS  A  MESSAGE 
—  INDICATING  WHETHER  THE  TEST  AS  A 
--  WHOLE  HAS  PASSED  OR  FAILED,  OR  IS 
—  NOT-APPLICABLE. 

—  THE  DYNAMIC  VALUE  ROUTINES. 

—  EVEN  WITH  STATIC  ARGUMENTS,  THESE  FUNCTIONS  WILL  HAVE  DYNAMIC 
—  RESULTS. 

FUNCTION  IDENT_INT  —  AN  IDENTITY  FUNCTION  FOR  TYPE  INTEGER. 

(  X  s  INTEGER  —  THE  ARGUMENT. 

)  RETURN  INTEGER;  —  X. 

FUNCTION  IDENT_CHAR  —  AN  IDENTITY  FUNCTION  FOR  TYPE 

—  CHARACTER. 

(  X  :  CHARACTER  —  THE  ARGUMENT. 

)  RETURN  CHARACTER;  —  X. 

FUNCTION  IDENT_BOOL  —  AN  IDENTITY  FUNCTION  FOR  TYPE  BOOLEAN. 

(  X  :  BOOLEAN  —  THE  ARGUMENT. 

)  RETURN  BOOLEAN;  —  X. 

FUNCTION  IDENT_STR  —  AN  IDENTITY  FUNCTION  FOR  TYPE  STRING. 

(  X  s  STRING  —  THE  ARGUMENT. 

)  RETURN  STRING;  —  X. 

FUNCTION  EQUAL  —  A  RECURSIVE  EQUALITY  FUNCTION  FOR  TYPE 

—  INTEGER. 

(  X,  Y  :  INTEGER  —  THE  ARGUMENTS. 

)  RETURN  BOOLEAN;  —  X  =  Y. 

END  REPORT; 


APPENDIX  C 


REPORT  BODY 


—  DCB  04/27/80 

—  JRK  6/10/80 

—  JRK  11/12/80 

—  JRK  8/6/81 

—  JRK  10/27/82 

—  JRK  6/1/84 

—  JRK  11/18/85  ADDED  PRAGMA  ELABORATE. 

WITH  TEXT_IO; 

USE  TEXT_IO ; 

PRAGMA  ELABORATE  (TEXT_IO); 

PACKAGE  BODY  REPORT  IS 

TYPE  STATUS  IS  (PASS,  FAIL,  DOES_NOT  APPLY); 

TEST_STATUS  J  STATUS  :=  FAIL; 

NO_NAME  :  CONSTANT  STRING  (1..7)  s  =  "NOJJAME"; 

MAX_NAME_LEN  s  CONSTANT  :=  15;  —  MAXIMUM  TEST  NAME  LENGTH. 

TESTJNAME__LEN  j  INTEGER  RANGE  0 . .  MAX_NAME  LEN  :=  0; 

TEST_NAME  s  STRING  ( 1 . . MAX_NAME_LEN ) ; 

PROCEDURE  PUT_MSG  (MSG  :  STRING)  IS 

—  WRITE  MESSAGE.  LONG  MESSAGES  ARE  FOLDED  (AND  INDENTED). 
MAX_LEN  :  CONSTANT  INTEGER  RANGE  50.. 150  :=  72;  ~  MAXIMUM 

—  OUTPUT  LINE  LENGTH. 

INDENT  :  CONSTANT  INTEGER  :=  TEST_NAME_LEN  +9;  —  AMOUNT 

—  INDENT  CONTINUATION  LINES. 
I  :  INTEGER  :=  0;  —  CURRENT  INDENTATION. 

M  :  INTEGER  :=  MSG'FIRST ;  —  START  OF  MESSAGE  SLICE. 

N  :  INTEGER;  —  END  OF  MESSAGE  SLICE. 

BEGIN 

LOOP 

IF  I  ♦  (MSG'LAST-M+1 )  >  MAX_LEN  THEN 
N  s=  M  ♦  (MAX_LEN-I )  -  1; 

IF  MSG  (N)  /=  •  •  THEN 

WHILE  N  >=  M  AND  THEN  MSG  (N+1)  /- 
N  :=  N  -  1; 


t  1 


LOOP 


LND  Ir j 

ELSE  N  :=  MSG 'LAST; 

END  IF; 

SET_COL  (STANDARD  OUTPUT,  COUNT  (1+1 )); 

PUT_LINE  (STANDARD_OUTPUT,  MSG  (M..N)); 

I  :=  INDENT; 

M  :  r  N  +  1  ; 

-L  MSG* LAST  AND  THEN  MSG  .M,  =  ’  ’  LOT? 


EM  LOOP; 

EXIT  WHEN'  M  >  MSG 'LAST; 

ENT  LOO?; 

» %  tj  r  j  i  Mo  ; 

PROCEDURE  TEST  (NAME  :  STRING;  DESCR  :  STRING)  IS 
BEGIN 

TEST_STATUS  :=  PASS; 

IF  NAME* LENGTH  <=  MAX_NAME_LEN  THEN 
TEST_NAME_LEN  :=  NAME 'LENGTH; 

ELSE  TEST_NAME_LEN  :  =  MAX_NAME_LEN ; 

END  IF; 

TEST_NAME  ( 1 . .TEST  NAMEJLEN)  := 

NAME  (NAME' FIRST  ..  NAME ' FIRST+TEST  NAME  LEN-1 ) ; 
PUT_MSG  (""); 

PUT_MSG  (" - "  &  TESTJNAME  O . . TEST  JiAME_LEN )  &  "  "  & 

DESCR  & 

END  TEST; 

PROCEDURE  COMMENT  (DESCR  :  STRING)  IS 
BEGIN 

PUT_MSG  ("  -  "  4  TEST_NAME  ( 1 . . TEST_NAME_LEN )  4  "  "  4 

DESCR  4 

END  COMMENT; 

PROCEDURE  FAILED  (DESCR  s  STRING)  IS 
BEGIN 

TESTJSTATUS  :=  FAIL; 

PUT_MSG  ("  •  "  4  TEST_NAME  ( 1 . . TEST_NAME_LEN )  4  "  "  4 

DESCR  4  "."); 

END  FAILED; 

PROCEDURE  NOT_APPLICABLE  (DESCR  ;  STRING)  IS 
BEGIN 

IF  TEST_STATUS  =  PASS  THEN 

TEST_STATUS  :  =  DOES_NOT_APPLY; 

END  IF; 

PUT_MSG  ("  ♦  "  4  TEST_NAME  ( 1 . . TEST_NAME_LEN )  4  "  "  4 

DESCR  4  "."); 

END  NOT  APPLICABLE; 


PROCEDURE  RESULT  IS 
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nt,r jn*  5Jl1 


BEGIN 


ITmTIjS  =  PASS  Tr.c-N 
msg  ^  TE5' 


c_SIr  Tc.ST_STATUS  =  DO ES_N 0 T_A P P L l  THEN 

PUT_MSG  ("♦♦♦♦  "  &  TEST_NAME  ( 1 . . TEST_NAME_LEN )  & 

"  NOT-APPLICABLE  +++++++♦++++++++++++."); 
ELSE  PUT_MSG  ("••••  "  4  TEST  NAME  ( 1 . .TEST  NAME  LEN)  & 

"  FAILED  ••»h*»«»h»»»i»«»i.»); 

END  IF; 


FUNCTION  IDENT  INI  VX  :  INTEGER 
BEGIN 

IF  EQUAL  (X,  X)  THEN 
RETURN  X; 

END  IF; 

RETURN  0; 

END  IDENT  INT; 


—  ALWAYS  EQUAL. 

—  ALWAYS  EXECUTED. 

—  NEVER  EXECUTED. 


FUNCTION  IDENT_CHAR  (X  :  CHARACTER)  RETURN  CHARACTER  IS 
BEGIN 

IF  EQUAL  (CHARACTER*  POS(X) ,  CHARACTER’ POS(X) )  THEN  —  ALWAYS 

—  EQUAL. 

RETURN  X;  —  ALWAYS  EXECUTED. 

END  IF; 

RETURN  ’O’;  —  NEVER  EXECUTED. 

END  IDENTJCHAR; 

FUNCTION  IDENT_BOOL  (X  j  BOOLEAN)  RETURN  BOOLEAN  IS 
BEGIN 

IF  EQUAL  (BOOLEAN’ POS(X),  BOOLEAN’POS(X) )  THEN  —  ALWAYS 

—  EQUAL. 

RETURN  X;  —  ALWAYS  EXECUTED. 

END  IF; 

RETURN  FALSE;  —  NEVER  EXECUTED. 

END  IDENT_BOOL; 

FUNCTION  IDENT_STR  (X  :  STRING)  RETURN  STRING  IS 
BEGIN 

IF  EQUAL  (X’ LENGTH,  X’ LENGTH)  THEN  —  ALWAYS  EQUAL. 

RETURN  X;  --  ALWAYS  EXECUTED. 

END  IF; 

RETURN  —  NEVER  EXECUTED. 

END  IDENT_STR; 

FUNCTION  EQUAL  (X,  Y  s  INTEGER)  RETURN  BOOLEAN  IS 

REC_LIMIT  ;  CONSTANT  INTEGER  RANGE  1..100  :=  3;  --  RECURSION 

—  LIMIT. 

Z  :  BOOLEAN;  —  RESULT. 

BEGIN 

IF  X  <  0  THEN 
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IF  Y  <  0  THEN 

2  :=  EQUAL  (-X,  -Y); 

ELSE  Z  FALSE; 

—  «  v  —  -  * 

E_SIF  X  >  REC_LIM1T  THEN 

Z  :=  EQUAL  (REC_LIMIT,  Y-X+REC_LIMIT) ; 
ELSIF  X  >  0  THEN 

Z  s=  EQUAL  (X-1,  Y-1 ) ; 

ELSE  Z  :=  Y  =  0; 

END  IF; 

RETURN  Z; 
a  J  EP  T  71* 

*v  H  E  7  ,  7  H  E  h£  -  > 

."TURN  X  =  Y; 

*J  LWOnbJ 


TE3T_NAME_LEN  :=  NO_NAME ' LENGTH ; 
TEST_NAME  (1 . .  TEST_NAME_LEN )  :=  NO_NAME; 

END  REPORT; 
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—  —  CZ 1 1 u i A •  n.^'A 

—  CHECK  THAT  THE  REPORT  ROUTINES  OF  THE  REPORT  PACKAGE  WORK  CORRECTLY. 

—  JRK  8/7/81 
~  JRK  10/27/82 

—  JRK  6/1/84 

WITH  REPORT; 

USE  REPORT; 

PROCEDURE  CZ1101A  IS 

BEGIN 


COMMENT  ("CZ1101A:  CHECK  REPORT  ROUTINES.  CHECKING  'COMMENT'"); 

COMMENT  ("CHECKING  'PUT_MSG*  FOR  PROPER  OUTPUT"); 

COMMENT  ("THIS  LINE  IS  EXACTLY  ' MAX_LEN '  LONG.  "  & 

"....5. ..60.. ..5. .*70."); 

COMMENT  ("THIS  COMMENT  HAS  A  WORD  THAT  SPANS  THE  FOLD  "  & 

"POINT.  THIS  COMMENT  FITS  EXACTLY  ON  TWO  LINES.  "  & 
...5... 60.... 5... 70."); 

COMMENT  ("THIS  COMMENT  HAS  A  WORD  THAT  ENDS  AT  THE  "  & 

"FOLD  POINT  ...70..  THE  SPACES  JUST  AFTER  "  & 

"THE  FOLD  POINT  SHOULD  BE  GONE"); 

COMMENT  ("THIS  COMMENT  HAS  A  WORD  THAT  BEGINS  AT  THE  "  & 

"FOLD  POINT.  THIS  SHOULD  BE  ON  THE  SECOND  LINE"); 

COMMENT  ("THIS  COMMENT  HAS  SPACES  SPANNING  THE  FOLD  "  & 

"POINT.  ..5... 70  THIS  SHOULD  BE  ON  THE  "  & 

"SECOND  LINE"); 

COMMENT  ("THIS_COMMENT_IS_ONE_VERY  LONG_WORD_AND_SO_"  & 
"IT_SHOULD_BE_SPLIT_AT_THE_FOLD_POINT" ) ; 

COMMENT  ("CHECKING  THAT  REPORT  BODY  INITIALIZES  TO  "  & 

"’NO  NAME'  AND  'FAILED'.  CHECKING  'RESULT'"); 

RESULT; 

TEST  ("PASS_TEST",  "CHECKING  'TEST'  AND  'RESULT'  FOR  'PASSED'"); 
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COMMENT  l "CHECKING  THAT  INDENTATION  OF  CONTINUATION  LINES  IS  "  & 
"ADJUSTED  ACCORDING  TO  TEST  NAME  LENGTH" ; ; 


JOMTENi  \ "CHECKING  ' RtSULI '  FOR  RESETTING  TO  'NO _ NAME'  "  & 

"AND  ’FAILED'"); 

RESULT; 

COMMENT  ("CHECKING  THAT  INDENTATION  OF  CONTINUATION  LINES  IS  "  & 
"ADJUSTED  ACCORDING  TO  TEST  NAME  LENGTH"); 

■  t»r;  «t  -'Ll-  j  *7  •  r ^ p(  *  ~ -ILrI  1  **  ; 
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TEST  t."NA_TES!",  "CHECKING  ' NOT_APPLICABLE '  AND  'RESULT'  FOR  "  & 
"’NOT-AFFLI CABLE'"); 

NGI_nF'r  LI  CABLE  ("CHECKING  'NGT_APPLICAELE' .  NOW  'RESULT'  SHOULD  "  & 

"BE  ' NOT-APPLICABLE '" ) ; 

RESULT ; 

TEST  ("FAIL_NA  TEST",  "CHECKING  'FAILED',  'NOT_APPLICABLE' ,  AND  "  & 

"'RESULT'  FOR  'FAILED'"); 

NOT_APPLICABLE  ("CHECKING  'NOT_APPLICABLE' .  NOW  'RESULT'  SHOULD  "  & 
"BE  'NOT-APPLICABLE'"); 

FAILED  ("CHECKING  'FAILED'.  NOW  'RESULT'  SHOULD  BE  'FAILED'"); 

NOT  APPLICABLE  ( "CHECKING  ' NOT_APPLICABLE ' .  NOW  'RESULT'  SHOULD  "  & 
"STAY  'FAILED'"); 

RESULT; 

COMMENT  ("END  CZ1101A"); 


END  CZ1101A; 


—  CZ1 102A.ADA 

—  CHECK  THAT  THE  DYNAMIC  VALUE  ROUTINES  OF  THE  REPORT  PACKAGE  WORK 

CORRECTLY. 

—  JRK  8/7/81 

—  JRK  10/27/82 


WITH  REPORT; 

USE  REPORT; 

PROCEDURE  CZ1102A  IS 


BEGIN 


TEST  ("CZ1102A",  "CHECK  THAT  THE  DYNAMIC  VALUE  ROUTINES  OF  "  & 

"THE  REPORT  PACKAGE  WORK  CORRECTLY"); 

IF  NOT  EQUAL  (0,  0)  OR 
EQUAL  (0,  1)  OR 
NOT  EQUAL  (1,  1)  OR 
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NOT  EwUAL  (3,  3)  OR 
NOT  EDUAL  (4,  4)  OR 

not  e,ual  ;-i,  -u  os 
failed  c" equal’  not  working" ) ; 

END  IF; 

IF  IDENT_INT  (5)  /=  5  THEN 

FAILED  ("*IDENT_INT'  NOT  WORKING"); 
END  IF; 

IF  ::ENT_:HAR  ;'£•)  /=  •£’  THEN 

failed  v",::e:;t_::-:ah'  not  working",? 

END  IF; 

IF  IDENT_SCDL  (TRUE)  /=  TRUE  THEN 

FAILED  t" *IDENT_BOOL’  NOT  WORKING"); 
END  IF; 

IF  IDENT_STR  ("")  /=  ""  OR 
IDENT_STR  ("K")  /=  "K"  OR 
IDENTJSTR  ("PQRS")  /=  "PQRS"  THEN 
FAILED  ("'IDENT_STR*  NOT  WORKING"); 
END  IF; 

RESULT ; 


END  CZ1102A; 


APPENDIX  E 


—  THIS  FILE  CONTAINS  THE  MACRO  DEFINITIONS  USED  IN  THE  A CVC  TESTS. 

—  THESE  DEFINITIONS  ARE  FOR  THE  PRELIMINARY  ADA  TEST  TRANSLATOR. 


—  THE  MAXIMUM  INPUT  LINE  LENGTH  PERMITTED  BY  THE  COMPILER  FOR  ADA 
—  SOURCE  CODE. 

—  USED  IN:  COMMENTS  IN  THIS  FILE,  A26007A 
MAX_IN_LEN  120 

—  TWO  IDENTIFIERS  THAT  ARE  MAX_IN_LEN  LONG  AND  DIFFER  ONLY  IN  THEIR 
—  LAST  CHARACTER. 

—  USED  IN:  C23003A,  C23003B ,  C23003C,  B23003D,  B23003E,  B23003F, 

C23003G,  C23003H,  C23003I,  C23003J,  C35502D,  C35502F 
BIG_ID1  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1 
BIG_ID2  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2 

—  TWO  IDENTIFIERS  THAT  ARE  MAX_IN_LEN  LONG  AND  DIFFER  ONLY  IN  THEIR 
—  MIDDLE  CHARACTER. 

—  USED  IN:  C23003A,  C23003B,  C23003C,  C23003G,  C23003H,  C23003I, 

C23003J 

BIG_ID3  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA3AAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
BIG_IDU  AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA^AAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

—  TWO  STRING  LITERALS  WHOSE  CONCATENATION  IS  THE  IMAGE  OF  BIG_ID1. 

—  USED  IN:  C35502D,  C35502F 

BIG_STRING1  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

BIG_STRING2  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA1 

—  A  STRING  LITERAL  THAT  IS  MAX_IN_LEN  CHARACTERS  LONG  (INCLUDING  THE 
—  QUOTE  CHARACTERS). 

—  USED  IN:  A26007A 

MAX_STRING_LITERAL  "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA" 

I 

> 
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—  A  BASED  INTEGER  LITERAL  (PREFERABLY  BASE  8  OR  16)  WHOSE  HIGHEST  ORDER 

—  NON-ZERO'  BIT  'WOULD  FALL  IN  THE  SION  BIT  POSITION  OF  THE 


—  jSED  IN:  c.2**101A 

NEG_BASED_INT  lotfFFFFFFFE// 

—  A  UN I V E RSAL_IN  TEGE  R  LITERAL  WHOSE  VALUE  IS  298,  BUT  WITH  ENOUGH 

—  LEADING  ZEROES  SO  THAT  IT  IS  MAX_IN_LEN  CHARACTERS  LONG. 

—  USED  IN:  C24003A 


— -  A  JNZ  *£  r.3r.L  “LAL  LlTEhAL  AHESc  VALoL  *3  B JT 

—  LEADING  ZEROES  SO  THAT  IT  IS  MAX_xN _ LtN  CHARACTcRS  -ONu. 

—  —  ^  ^  4  0  0 2  ** 

BI j  RlAL  LIT  OG^GOOOOOOOOOOGv'OOouoOOOOwOOvOeOUOOoOCOOOOOOOOOOOOOCOOuOooOO 
0000000000000000000000000000300000000000000000000000000690.0 

—  A  UNIVERSAL_INTEGER  BASED  LITERAL  (USING  COLONS)  WHOSE  VALUE  IS 

—  2:11:,  BUT  WITH  ENOUGH  LEADING  ZEROES  IN  THE  MANTISSA  SO  THAT  THE 

—  LITERAL  IS  MAX_IN_LEN  CHARACTERS  LONG. 

—  USED  IN:  C2A009A 

MAX  LEN  INT  BASED  LITERAL  2:00000000000000000000000000000000000000000 

“  “  00000000000000000000000000000000000000000 

0000000000000000000000000000000011 : 

—  A  JNIVERSAL_REAL  BASED  LITERAL  (USING  COLONS)  WHOSE  VALUE  IS 

—  16 :F.E: ,  BUT  WITH  ENOUGH  LEADING  ZEROES  IN  THE  MANTISSA  SO  THAT  THE 

—  LITERAL  IS  MAX_IN_LEN  CHARACTERS  LONG. 

—  USED  IN:  C2A009A 

MAX_LEN_REAL_BASED_LITERAL  1 6 : 00000000000000000000000000000000000000000 

00000000000000000000000000000000000000000 
OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOF . E : 

—  A  SEQUENCE  OF  BLANKS  THAT  IS  MAX_IN_LEN  -  20  LONG. 

—  USED  IN:  B22001A,  B22001B,  B22001C,  B22001D,  B22001E,  B22001F, 

B22001G,  B22001I,  B22001J,  B22001K,  B22001L,  B22001M, 

B22001N 

BLANKS 

—  THE  UNIVERSAL_INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM. MAX_DIGITS. 

—  USED  IN:  B35701A 

MAX_DIGITS  33 

—  A  NAME  CF  A  PREDEFINED  NUMERIC  TYPE  OTHER  THAN  FLOAT,  INTEGER, 

—  SHORT_FLOAT,  SHORT_INTEGER ,  LONG_FLOAT,  OR  LONG_INTEGER . 

—  (MOST  IMPLEMENTATIONS  WILL  NOT  HAVE  ANY  SUCH  TYPES.) 

—  USED  IN:  C45231D,  B86001DT 
NAME  SHORT_SHORT_INTEGER 

—  THE  (SIGNED)  UNIVERSAL_INTEGER  LITERALS  WHOSE  VALUES  ARE 

—  INTEGER’ FIRST  AND  INTEGER 'LAST. 

—  USED  IN:  C35503F,  C45232A,  BB^BGIB 

INTEGER_FIRST  -2_147_483_643 
INTEGER  LAST  2  147  483  647 
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—  THE  UNIVERSAL_INTEGER  LITERAL  WHOSE  VALUE  IS  INTEGER 'LAST  *  1. 

—  J w'E .  *N;  J  -t :  *0 ^  A 

I A  -  ^  ^  AS  i r  ^  u  S_  1  ^  1  ** 

—  THE  (SIGNED)  UNIVERSAL  INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM. MIN  INT. 

—  USED  IN:  C35503D,  C35503F 
MIN_INT  -2147483648 

—  THE  UNIVERSAL  INTEGER  LITERAL  WHOSE  VALUE  IS  SYSTEM. MAX  INT. 


—  THE  U K I V ER S AL_I N T EG ER  LITERAL  WHOSE  VALUE  IS  SYSTEM.MAX_INT  +  1. 

—  USED  IN:  0452 32A 

.-.AX  _ .  rT.jS  1  c.  1h  i  o-tc 

—  A  (SIGNED)  UNIVERSAL_REAL  LITERAL  WHOSE  VALUE  (NOT  SUBJECT  TO 

—  ROUND-OFF  ERROR  IF  POSSIBLE)  LIES  BETWEEN  DURATION* BASE' FIRST  AND 

—  DURATION' FIRST.  IF  NO  SUCH  VALUES  EXIST,  ANY  VALUE  IN  THE  RANGE  OF 

—  DURATION  WILL  DO. 

—  USED  IN:  C96005B 

LESS_THAN_DURATION  -75_000.0 

—  A  UNIVERSAL_REAL  LITERAL  WHOSE  VALUE  (NOT  SUBJECT  TO  ROUND-OFF  ERROR 

—  IF  POSSIBLE)  LIES  BETWEEN  DURATION 'BASE 'LAST  AND  DURATION 'LAST.  IF 

—  NO  SUCH  VALUES  EXIST,  ANY  VALUE  IN  THE  RANGE  OF  DURATION  WILL  DO. 

—  USED  IN:  C96005B 
GREATER_THAN_DURATION  75_000.0 

—  (SIGNED)  UNIVERSAL  REAL  LITERALS  WHOSE  VALUES  ARE  LESS  THAN 

—  DURATION' BASE' FIRST  AND  GREATER  THAN  DURATION 'BASE 'LAST. 

—  USED  IN:  C96005C 

LESS_THAN_DURATION_BASE_FIRST  -131  073.0 
GR  EATER  _THAN_DUR ATION_BASE_LAST  1 3 1  J>7 3 . 0 

—  THE  UNIVERSAL_INTEGER  LITERAL  WHOSE  VALUE  IS  TEX T_IO. COUNT 'LAST. 

—  USED  IN:  CE3002B 

COUNT_LAST  2_1 47_483_64? 

—  THE  UNIVERSAL  INTEGER  LITERAL  WHOSE  VALUE  IS  TEXT_IO. FIELD 'LAST. 

—  USED  IN:  CE3002C 

r IELD_LAST  2_147_483_647 

—  AN  ILLEGAL  EXTERNAL  FILE  NAME  THAT  EITHER  (PREFERABLY)  CONTAINS 

—  INVALID  CHARACTERS  OR  IS  TOO  LONG. 

—  USED  IN:  CE2102C,  CE2102H 

FILE_NAME_WITH_BAD_CHARS  BAD-CHARS*# . %  I X 

—  AN  EXTERNAL  FILE  NAME  THAT  EITHER  (PREFERABLY)  CONTAINS  A  WILD  CARD 

—  CHARACTER  OR  IS  TOO  LONG. 

—  USED  IN:  CE2102C,  CE2102H 

F ILE_N  AM E_W  I TH_W ILD_C  A  RD_C H A R  WILD-CHAR*. NAM 

—  AN  ILLEGAL  EXTERNAL  FILE  NAME  (E.G.,  TOO  LONG,  OR  CONTAINING  INVALID 
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Certain  tests  may  be  inapplicable  (N/A)  according  to  the  way  an 
implementation  treats  certain  language  features.  These  implementation 
choices  and  the  tests  affected  are  listed  in  this  section.  Note  that  N/A 
tests  are  still  to  be  compiled  (and  executed  if  not  of  Class  B)  to  verify 
the  Implementation's  treatment  of  these  features. 


o  Is  SnC'RT_I.\TECEF.  supporter?  (Y/N;  _ 

If  No,  the  following  tests  are  inapplicable: 

B52004E.DEP 
B55B09D.DEP 
C4523‘!B.DEP 
C45304B.DEP 
C45502B.DEP 
C45503B.DEP 
C45504B.DEP 
C45504E.DEP 
C456* IB.DEP 
C456I3B.DEP 
C45614B.DEP 
C45631B.DEP 
C45632B.DEP 
C55B07B.DEP 
B6600 "CR . DEP 
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T :»o,  ”:.e  following  tes*s  are  inapplicable: 

B52004D.DEP 

B55B09C.DEP 

C45?3'C.DEP 

C45304C.DEP 


-  •  •  S  —  —  -V 

t4;5(  .  - . jLr 


C45b"‘HC,LE? 

C4563*C.DEP 

C45632C.DEP 

C55B07A.DEP 

B86001CS.DEP 


o  I s  SHORT_FLOAT  supported?  (Y/N)  _ 

If  No,  the  following  tests  are  inapplicable: 

C35702A.DEP 

B86001CP.DEP 


o  Ts  LONG_FLOAT  supported?  (Y/N)  _ 

If  No,  the  following  tests  are  inapplicable: 

C35702B.DEP 

B86001CQ.DEP 


o  Are  representation  specifications  for  non-contiguous 
allowed?  (Y/N)  _ 

If  No,  the  following  tests  are  inapplicable: 

A390C5F. DEP 
C355G2I.DEP 
C35502J.DEP 
C35302M.DEP 
C3550PN.DEP 
C35507J.DEP 
C35507M.DEP 
C35507N.DEP 
C355G6I.DEP 
C35506J.DEP 
C385G8M.DE? 

C35806N.DEP 
C55B' tA . DEP 


values 
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If  No,  the  following  tests  are  inapplicable: 

B86001DT.TST 
CL323*  D.TST 


*  ■- _  '  i  .  j  £3~  ~y.  use  *  rv  oacrtage  ?r.XT  T  ?  .1  !. 

If  Yes,  the  following  tests  are  inapplicable: 

CooOC'F.DE? 

o  Are  'SIZE  representation  clauses  for  enumeration  types  supported 
(Y/N)?  _ 

If  No,  the  following  test  is  inapplicable: 

A39005B.DEP 

o  Are  'SIZE  representation  clauses  for  derived  integer  types 
supported  (Y/N}?  _ 

If  No,  the  following  test  is  inapplicable: 

C37B62A.DEP 


o  Are  'STORAGEJSIZE  representation  clauses  for  access  types 
supported  (Y/N)?  _ 

If  No,  the  following  tests  are  inapplicable: 

A39005C.DEP 

C87B62B.DEP 


o  Are  ' STORAGE  SIZE  representation  clauses  for  tasK  types  supportec 
XY/N)?  _ 


If  No,  the  following  tests  are  inapplicable: 


A39005D.DEP 

C87B6PD.DEP 
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7  -  ^  -  p  i  ^  v  ^  ^  o  ^  ^  'ip*  ^  H  .  V  ’  ’ 

If  No,  tne  following  tests  are  inappiicacie: 

A39005E.DEP 

C87B62C.DEP 


o  Are  enumeration  represent  at  ior.  classes  supported  frr  e:.  _n.er  :*■  i  :  r. 
typer  otr.er  than  mar  aster  ar.r  ooclean  types'?  >1'.?.  _ 

If  :,o,  * ne  following  tes‘s  are  inappiicacie: 

A39005F.DE?  Cs55C2I.de? 

C555C2J.DE?  C355G2M.DEP 

C35502N.DEP 

o  Are  enumeration  representation  clauses  supported  for  character 
types?  (Y/N)  _ 

If  No,  the  following  tests  are  inapplicable: 

C35507T.DEP  C355G7J.DEP 

C35507M.DEP  C35507N.DEP 

C55B16A.DEP 


o  Are  enumeration  representation  clauses  (with  representation  values 
other  than  (FALSE  =>  0,  TRUE  =>*»))  supported  for  boolean  types? 
(Y/N)  _ 

If  No,  the  following  tests  are  inapplicable: 

C35508I.DEP  C35508J.DEP 

C35508M.DEP  C35508N.DEP 


o  Are  record  representation  clauses  supported?  ^Y/N) 
If  No,  the  following  test  is  inapplicable: 
A390G5C.DEP 


o  Can  generic  library  subprogram  bodies  be  compiled  in  separate 
files  from  the  specifications?  (Y/N)  _ 

If  No,  the  following  test  Is  inapplicable: 

CA*i012A*.DEP 
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trarv  racka»*<?  hcdv  ~e  c^zil  led  ir.  dl'T ere:.*  !'i> 


Ii'  No,  tnen  the  following  tests  are  inapplicable: 


BC3204C«.DEP 

BC3204D«.DEP 


.a..  ^  ^  j  p-aCrC-ge  o . 

i  ;f  fi*e  free  i*s  speed fi cat i c: 


'f  No,  tr.e  following  test  is  inappiicaDie: 


o  Can  a  generic  non-library  subprogram  body  be  compiled  as  a  subunit 
in  a  separate  file  from  its  specification?  (Y/N)  _ 


If  No,  then  the  following  test  is  inapplicable: 


CA2009F*.DEP 


o  Can  a  generic  procedure  have  subunits  which  are  compiled  in 
separate  files  from  the  generic  unit?  (Y/N)  _ 


If  No,  then  the  following  test  is  inapplicable: 


CA301 * A*.DEP 


o  Can  SEQUENTTAL_IO  be  Instantiated  with  unconstrained  array  types? 
(Y/N) 


If  No,  then  the  following  tests  are  inapplicable: 


AE2I01C.DEP 

EE220ID.ADA 


o  Can  SEil’ENTXAL_TO  be  Instantiated  with  record 
discriminants  with  no  default  values?  (Y/N) 


types  witn 


If  No,  then  the  following  tests  are  inapplicable: 


AE2*0*C.DEP 
EE22G1 E.ADA 
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If  No,  tnen  the  following  tests  are  inapplicable: 

AE21Q1H.DEP 
EE2401D. ADA 


IRE ST _ I 0  ce  instantiated  with  record  types  with  discriminants 

no  cef Hui t  val nes :  v i - N ) 

If  No,  tnen  the  following  tests  are  inapplicable: 


*E2 1 0 1 H . DEP 
EE2401G.ADA 


o  Are  there  any  strings  which  are  illegal  as  external  names  of 
files?  (Y/N)  _ 

If  No,  then  the  following  tests  are  inapplicable: 


CE2102C.TST 

CE2102H.TST 


o  Consider  the  following  declarations: 

TYPE  F  IS  DIGITS  SYSTEM . MAX_DI GITS ; 

N  :  CONSTANT  :=  2.0  •  F ' MACHINE_RADIX  ••  F ' MACHINE_EMAX ; 

The  following  test  is  inapplicable  if  the  compiler  rejects  the 
declaration  of  N  on  the  grounds  that  evaluation  of  the  expression 
would  raise  an  exception: 

C4AQ13B.ADA 


o  Does  the  implementation  support  the  following  three  fixed  point 
type  definitions?  (Y/N)  _ 

DELTA  0.5  RANGE  -2. 0»»10  ..  2.0*»10  -  0.5 
DELTA  1.0  RANGE  -2. 0»*»11  ..  2.0»*11  -  1.0 
DELTA  2.0**  10  RANGE  -2.0*»2I  ..  2.0»*21  -  2.0«»10 

If  No,  then  the  following  tests  are  inapplicable: 

C4553IC.DEP 

C4553ID.DEP 

C45532C.DEP 

C45S32D.DEP 


:  „n.  .  u  r, »  n 
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o  Does  the  implementation  support  the  following  three  fixed  point 


tyoe  definitions?  (Y/N) 


DLi_TA  1.0  r.  AN  j  E  -2. 0**15  ..  2.  0**15  -  1.0 

DELTA  2.0** 1 4  RANGE  -2.0**29  ..  2.0**29  -  2.0*»14 


If  No,  then  the  following  tests  are  inapplicable! 


C45531G.DEP 

C4555iH.DE? 


_ 1 . . 


,oes  tr.e  implementation  sop: 
,ype  definitions?  (x/N) 


port  the  following  three  fixed  point 


DELTA  0.5  RANGE  -2.0**30  ..  2.0»*30  -  0.5 
DELTA  1.0  RANGE  -2.0**31  ••  2.0*«31  -  1.0 
DELTA  2.0**30  RANGE  -2.0**6l  ..  2.0**61  -  2.0*»30 


If  No,  then  the  following  tests  are  inapplicable: 


C45531K.DEP 

C45531D.DEP 

C45532K.DEP 

C45532L.DEP 


o  Does  the  implementation  support  the  following  three  fixed  point 
type  definitions?  (Y/N)  _ 


DELTA  0.5  RANGE  -2.0**46  ..  2.0**46  -  0.5 
DELTA  1.0  RANGE  -2. 0**47  ..  2.0**47  -  1.0 
DELTA  2. 0**46  RANGE  -2.0**93  ..  2.0**93  -  2.0**46 


If  No,  then  the  following  tests  are  inapplicable: 


C455310.DEP 

C45531P.DEP 

C455320.DEP 

C45532P.DEP 


•  "it  i?  *  •  *  '  ■-  ‘ 4  1 


,4’*  i*'. 


“s’ 


rvv  v*  t  "i  * , T  j7f 

/'  .  A  *■*,*/  *•••?.’/  fc  •  •  ' 


a;  r  *-i.  ^aO 


rage  vi-c 


ft 


o  Does  the  implementation  support  the  following  three  fixed  point 
type  definitions?  (Y/N)  _ 


z.i _z.k  range  ..  **.•_ 

DELTA  2.0**- 11  RANGE  -1.0  ..  1.0  -  2.0**-11 

DELTA  2.0»*-10  RANGE  -2.0  ..  2.0  -  2.0**-10 

If  No,  then  the  following  tests  are  inapplicable: 

C45531A.DEP 

CU5531B.DEP 
u-p;  3  2  A. .  DnP 
1-33 o2E . DE? 


o  Does  the  implementation  support  the  following  three  fixed  point 
type  definitions?  iY/'N)  _ 

DELTA  2. 0**-l6  RANGE  -0.5  ..  0.5  -  2.0**-l6 

DELTA  2.0**-15  RANGE  -1.0  ..  1.0  -  2.0**-15 

DELTA  2. 0**-l4  RANGE  -2.0  ..  2.0  -  2.0**-14 

If  No,  then  the  following  tests  are  Inapplicable: 

C45531E.DEP 

C45531F.DEP 

C45532E.DEP 

C45532F.DEP 


o  Does  the  implementation  support  the  following  three  fixed  point 
type  definitions?  (Y/N)  _ 

DELTA  2.0**-32  RANGE  -0.5  ..  0.5  -  2.0**-32 

DELTA  2.0**-31  RANGE  -1.0  ..  1.0  -  2.0**-31 

DELTA  2.0**-30  RANGE  -2.0  ..  2.0  -  2.0**-30 

If  No,  then  the  following  tests  are  inapplicable: 

C45531I.DEP 

C45531J.DEP 

C45532I.DEP 

C45532J.DEP 


ft*  r  bivACiuii  X 


{•age  j-9 


3S* 


o  Does  the  implementation  support  the  following  three  fixed  point 
type  definitions?  (Y/N': 

DELTA  -  DALLE  -  0 .  5  ..  0.;  - 

DELTA  2.0**-47  RANGE  -1.0  ..  1.0  -  2.0**-47 

DELTA  2.0»»-46  RANGE  -2.0  ..  2.0  -  2.0*»-46 


If  No,  then  the  following  tests  are  inapplicable: 


C4553 1M.DEP 
C45531N.DE? 

C45532X.DEP 


nr  i  1 


rajje 


it  is  the  value  of  SYSTEM. MAX  DIGITS' 


ifL1!  I 

C35703A,B, . . .Y 
C35706A,B,...Y 
C35707A, B, . . .Y 
C35708A,B,...Y 
C35802A,B,. ..Y 
C4524U.B,  .  . 

. 

N*  “t  “■ ■  I  /t  f  ^7  j  •  • 

043621 A , 5 , . . 

i  A  f  j  . . 
C46012A,B, ...Z 


SYSTEM. MAX 


Use  the  table  below  to  determine  which  of  these  tests  are 
applicable  based  on  the  value  of  SYSTEM. MAX_DIGITS. 


Last  Letter 
MAX  DIGITS  of  Test  Name 


Some  Class  C  ana  Class  E  tests  can  detect, at  run-time,  certain 
implementation  characteristics  which  make  the  test  inapplicable.  The 
result  reported  for  these  tests  is  NOT-APPLICABLE.  These  tests  must  be 
compiled  and  executed.  They  are  listed  here,  grouped  according  to  the 
implementation  characteristics  which  make  them  inapplicable. 

There  are  also  certain  implementation  characteristics  which  the  tests 
do  not  detect  at  compile/link-time,  but  which  may  not  report 

NOT-APPLICABLE,  even  though  they  are  ruled  inapplicable  to  the 

implementation.  These  tests  are  given  at  the  end  of  this  Appendix. 


"INAPPLICABLE 


TESTS  WHICH  SHOULD  REPORT 


Is  USEJEREQR  or  NAME_ERROR  raised  by  every  attempt  to  create  or 

open  a  text  file?  (Y/N)  _  (This  is  the  appropriate  behavior 

for  an  implementation  which  does  not  support  text  files  other  than 
the  standard  input  and  output.  See  AI-00332.) 


tests  S.nC 


the  following 

Z.  —  !  ^  'w  •  *J  rt 

CEo 1C 3 A. ADA 
CE3 1 OcA. ADA 
CE3 1 1 OA. ADA 
-CE5 1 1 1 C .  ADA 

CE31 12A.ADA 

CE31 14B.ADA 

CE3208A.ADA 

CE3301C.ADA 

CE3402A.ADA 

CE3402D.ADA 

CE3403C.ADA 

CE3404A.ADA 

CE3405A.ADA 

CE3405D.ADA 

CE3406C.ADA 

CE3407B.ADA 

CE3408B.ADA 

CE3409C.ADA 

CE3409F.ADA 

CE3410D.ADA 

CE3411A.ADA 

CE3413C.ADA 

CE3602B.ADA 

CE3603A.ADA 

CE3605B.ADA 

CE3605E.ADA 

CE3704A. ADA 

CE3704E.ADA 

CE3704N. ADA 

CE3706F.ADA 

CE3804C. ADA 

CE3804G.ADA 

CE3804M.ADA 

CE3806A.ADA 

CE3905A.ADA 

CE3905L.ADA 

CE3906C. ADA 


uij  •  \J n  A  •  H. .J A 
CE31 OSB . ADA 
CE311 ■ A. ADA 
CE3 1 1 1D. ADA 

CE3H2B.ADA 

CE31 15A.ADA 

CE3301A.ADA 

CE3302A.ADA 

CE3402B.ADA 

CE3403A.ADA 

CE3403E.ADA 

CE3404B.ADA 

CE3405B.ADA 

CE3406A.ADA 

CE3406D.ADA 

CE3407C.ADA 

CE3408C.ADA 

CE3409D.ADA 

CE3410A.ADA 

CE3410E.ADA 

CE3412A.ADA 

CE3419A.ADA 

CE3602C.ADA 

CE3604A.ADA 

CE3605C.ADA 

CE3606A.ADA 

CE3704B.ADA 

CE3704F.ADA 

CE37040. ADA 

CE3804A.ADA 

CE3804D. ADA 

CE3804I.ADA 

CE3605A.ADA 

CE3806D.ADA 

CE3905B.ADA 

CE3906A.ADA 

CE3906E.ADA 


IO  i  i  i  n  • 

CE3109A.ADA 

-—o  1  'Id.  A*-1  A 

CES'i  1 1E.  ADA 

CE3114A.ADA 

CE3203A. ADA 

CE3301B.ADA 

CE3305A.ADA 

CE3402C. ADA 

CE3403B.ADA 

CE3403F.ADA 

CE3404C.ADA 

CE3405C.ADA 

CE3406B.ADA 

CE3407A.ADA 

CE3408A.ADA 

CE3409A.ADA 

CE3409E.ADA 

CE3410C.ADA 

CE3410F.ADA 

CE3413A.ADA 

CE3602A.ADA 

CE3602D.ADA 

CE3605A.ADA 

CE3605D. ADA 

CE3606B.ADA 

CE3704D.ADA 

CE3704M. ADA 

CE3706D.ADA 

CE3804B. ADA 

CE3804E. ADA 

CE3804K.ADA 

CE3805B.ADA 

CE3806E.ADA 

CE3905C.ADA 

CE3906B. ADA 

CE3906F.ADA 
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o  Is  U5E_ERR0R  or  NAME_ERROR  raised  by  every  attempt  to  create  or 
-per.  a  sequential  file?  (Y/N)  (This  is  the  appropriate 


the  following  tests  should  report  NOT -APPLICABLE: 


If  Yes,  then 


CE2102C.TST 
CE2105A.ADA 
CE2107B. ADA 

z. u  1  Go n. .  ADn 
CE2;  1 OA.ADA 

v-  IL  .1  i  *  i  \».  •  H  n 

CE^201  A .  AiuA 
EE2201D. ADA 
’u.ADA 
CE2206B. ADA 


CE2104A.ADA 

CE2106A.ADA 

CE21Q7C.ADA 

.  rti  h 

OEi  "i  1 0C  •  ADA 

^  i  1  i  u  •  r._ n 

CE2201 3. ADA 
EE22Q1E. ADA 
— LjHni  A  r-. 
CE221 OA.ADA 


CE2104B.ADA 

CE2107A.ADA 

CE2107D.ADA 


CE2201C.ADA 
CE2201F. ADA 

*-£.£.2  O'*  D  .  r.-  n 


o  Is  USE_ERROR  or  NAME_ERROR  raised  by  every  attempt  to  create  or 

open  a  direct  access  file?  (Y/N)  _  (This  is  the  appropriate 

behavior  for  an  implementation  which  does  not  support  direct 
access  files.  See  AI-00332.) 


If  Yes,  then  the  following  tests  should  report  NOT-APPLICABLE: 


CE2102H.TST 
CE2104D.ADA 
CE2107E.ADA 
CE2107H.ADA 
CE2108D.ADA 
CE21 1 1H.ADA 
CE2115A.ADA 
CE2401C.ADA 
CE2401F.ADA 
CE2404A.ADA 
CE2407A.ADA 
CE241 OA.ADA 


CE2102K.ADA 
CE2105B.ADA 
CE2107F.ADA 
CE2107I.ADA 
CE2109B.ADA 
CE21 1 1E. ADA 
CE2401A.ADA 
EE2401D.ADA 
EE2401G.ADA 
CE2405B. ADA 
CE2408A.ADA 
CE24HA.ADA 


CE2104C.ADA 
CE2106B.ADA 
CE2107G.ADA 
CE2108C.ADA 
CE2111B.ADA 
CE21 1 1G.ADA 
CE2401B.ADA 
CE2401E.ADA 
CE2401H.ADA 
CE2406A.ADA 
CE2409A.ADA 


o  Does  the  implementation  support  dynamic  creation  and  deletion  of 
text  files?  (Y/N)  _ 

If  No,  then  the  following  tests  should  report  NOT-APPLICABLE: 

CE31 1 OA.ADA 
CE3102B.ADA 


CM 

lsl; 


il 


o  Does  tne  implementation  allow  more  than  one  internal  text  file  to 
oe  associated  witn  the  same  external  file?  (Y/N) 


CED1 1 0B. ADA  CE211 ID. ADA  CE311 1A.ADA 
CE31 1 1B.  ADA  CE31HC.ADA  CE31 1 1D. ADA 
CE3111E.ADA  CE31 1  MB. ADA  CE31 1 5A.ADA 


c  Does  tne  implementation  allow  more  than  one  internal  sequent ia~ 
f i.e  to  oe  associates  with  tne  same  external  file?  VY  'S.  _ _ 

If  No,  then  the  following  tests  should  report  NOT-APPLICABLE : 

CE2107A.ADA  CE2107B.ADA  CE2107C.ADA 

CE2107D.ADA  CE21 11 D. ADA 

Does  the  implementation  allow  more  than  one  internal  direct  access 
file  to  be  associated  with  the  same  external  file?  (Y/N)  _ 

If  No,  then  the  following  tests  should  report  NOT-APPLICABLE: 

CE2107E.ADA  CE2107F.ADA  CE2107G.ADA 

CE2107H.ADA  CE2107I.ADA  CE2111H.ADA 


o  Does  the  implementation  allow  resetting  one  of  several  internal 
sequential  files  all  of  which  are  associated  with  the  same 
external  file?  (Y/N)  _ 

If  No,  then  the  following  test  should  report  NOT-APPLICABLE: 
CE3115A.ADA 


o  Is  the  INLINE  pragma  supported  for  PROCEDURES?  (Y/N)  _ 

If  No,  then  the  following  tests  should  report  NOT-APPLICABLE: 

LA3004A«.ADA 

EA3004C*. ADA 
CA3004E*. ADA 


o  Is  the  INLINE  pragma  supported  for  FUNCTIONS?  (Y/N)  _ 

If  No,  then  the  following  tests  should  report  NOT-APPLICABLE: 

LA3004B».ADA 
EA3004D*. ADA 
CA3004F*.ADA 
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7:.e  following  test  should  report  NCI-APPLICABLE  if  the  depth  of 
re  ours  lor.  causes  S7IPA GE  ERROR  to  oe  raised: 


o  The  following  test  should  report  NOT-APPLICABLE  if  DURATION ' FIRST 
=  DURATION* BASE 'FIRST  and  the  test  otherwise  executes  properly,  or 
if  DURATION* LAST  =  DURATION ' BASE 'LAST  and  the  test  otherwise 
executes  properly: 


test  should  report  NOT -APPLICABLE  if  it 


i:.-.:  _ .  w- 


F  *MA:.-:iNE_nADIX  »•  F' MACHINE JEMAX  <=  F*  BASE  'LARGE,  where  F  is 
given  by  TYPE  F  IS  DIGITS  SYSTEM.MAX_DIGITS: 

C4A013B.ADA 


o  Is  the  value  of  SYSTEM. MAX_DIGITS  >  35?  (Y/N)  _ 

If  Yes,  tr.er.  the  following  test  is  inapplicable: 

C4 AO 11 A. ADA 


*  ■  V"  Y -V  VJV-V V *y "a.-. 


r age  n-t 


TESTS  WHICH  MAY  NOT  REPORT  "NCT-AP? LICAb; 


»» 


o  Is  mode  IN_FILE  supported  for  sequential  files?  (Y/N) 
If  Yes,  then  the  following  test  is  inapplicable: 
CE2102D.ADA 


If  Yes,  tr.er.  the  following  test  is  inappiicacle: 

U*  wt-  4  vdl#  Ak-n 

o  Is  mode  INOUT_FILE  supported  for  direct  access  files?  (Y/N) 
If  Yes,  then  the  following  test  is  Inapplicable: 

CE2102F. ADA 


o  Are  RESET  and  DELETE  supported  for  sequential  files?  (Y/N)  _ 

If  Yes,  then  the  following  test  is  inapplicable: 

CE2102G.ADA 

o  Are  RESET  and  DELETE  supported  for  direct  access  files?  (Y/N) 

If  Yes,  then  the  following  test  is  inapplicable: 

CE2102K.ADA 

o  Is  mode  IN_FILE  supported  for  direct  access  files?  (Y/N)  _ 

If  Yes,  then  the  following  test  is  inapplicable: 
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Are  dynamic  creation  ana  deletion  of  sequen 
i'i'  S  ) 


I  ij.es 


•  -  ■  -  -  - 


CE2106A.ADA 


Are  dynamic  creation  and  deletion  of  direct  fij.es  supported? 

(Y/N) 


A^'» «.  WiiHl^hAnN  TLl-S 


The  following  testa  have  been  withdrawn  from  Version  1.9  of  the  Ada 
Compiler  Validation  Capability  (ACVC)  for  the  reasons  given  below: 

.  C3U004A:  The  expression  in  line  166  yields  a  value  outside  tr.e 


.  C356G2F:  Tne  equality  operators  in  lines  62  and  69  snould  be 

inequality  operators. 

.  C37213H:  The  subtype  declaration  of  SCONS  in  line  100  is 

incorrectly  expected  to  raise  an  exception  when  elaborated. 

.  C37213J:  The  aggregate  in  line  451  incorrectly  raises 

CONSTRAINT_ERROR. 

.  C37215C,  C37215E,  C37215G,  and  C37215H:  Various  discriminant 

constraints  are  incorrectly  expected  to  be  incompatible  with  type 

CONS. 

.  C41402A:  The  attribute  *STORAGE__SIZE  is  incorrectly  applied  to  an 

object  of  an  access  type. 

.  C45614C:  The  function  call  of  IDENT_INT  in  line  15  uses  an 

argument  of  the  wrong  type. 

.  BC3105A:  Lines  159  through  168  expect  error  messages,  but  these 
lines  are  correct  Ada. 

.  AD1A01A:  The  declaration  of  subtype  SINT3  raises  CONSTRAINT_ERROR 
for  implementations  which  select  INT'SIZE  to  be  16  or  greater. 

.  CE2401H:  The  record  aggregates  in  lines  105  and  117  contain  the 
wrong  values. 

••••  End  of  List 


Ada  is  a  registered  trademark  of  the  United  States  Government  (Ada  Joint 
Program  Office). 


